#include	<stdio.h>
#include	<stdlib.h>
#include	<string.h>
#include	<sys/types.h>
#include	<sys/stat.h>
#include	<fcntl.h>
#include	<time.h>
#include	<unistd.h>
#include	"read2ch.h"

#define	CGINAME	"read.cgi"
#define	CGIVER	"read.cgi ver11 (2001/8/26)"
#define	RES_YELLOW	 900
#define	RES_REDZONE	 950
#define	RES_RED		1000
#define	RES_IMODE	10
#define	RES_NORMAL	100
#define	MAX_FILESIZE	(8192 * 64)
#define	SIZE_BUF	0xa000

#define	LIMIT_PM	23
#define	LIMIT_AM	 3

char	*zz_remote_addr		;
char	*zz_remote_host		;
char	*zz_http_referer	;
char	*zz_http_cookie		;
char	*zz_query_string	;
char	*zz_temp		;
char	*zz_http_user_agent	;
char	*zz_http_language	;
#ifdef GZIP
char	*zz_http_encoding	;
int	 gzip_flag;
#endif

#ifdef LASTMOD
char	*zz_http_if_modified_since	;
time_t  zz_fileLastmod;
char    lastmod_str[1024];
#endif

char	zz_bs[1024]		;
char	zz_ky[1024]		;
char	zz_ls[1024]		;
char	zz_st[1024]		;
char	zz_to[1024]		;
char	zz_nf[1024]		;
char	zz_im[1024]		;
int	nn_st,nn_to,nn_ls	;
char	*BigBuffer = NULL	;
char	*BigLine[RES_RED+16]	;

char	*KARA	= ""		;
int	zz_fileSize = 0		;
int	lineMax = -1		;
int	out_resN = 0		;

time_t		t_now		;
struct	tm	*tm_now		;
long		currentTime	;

char	*LastChar(char *src,char *c)		;
char	*findSplitter(char *stt,int sp)		;
char	*zz_GetString(char *dst,char *tgt)	;
char	*doReplace(char *des,char *str0,char *str1);

/****************************************************************/
/*	BadAccess							*/
/****************************************************************/
int	BadAccess()
{
	if(strstr(zz_http_user_agent,"DreamPassport"))	return 0;
	if(strstr(zz_http_user_agent,"DoCoMo"))		return 0;
	if(strstr(zz_http_user_agent,"J-PHONE"))	return 0;
	if(strstr(zz_http_user_agent,"ASTEL"))		return 0;
	if(strstr(zz_http_user_agent,"[ja]"))		return 0;
	if(strstr(zz_http_user_agent,"iCab"))		return 0;	/* MAC		*/
	if(strstr(zz_http_user_agent,"iBOX"))		return 0;	/* MAC		*/
	if(strstr(zz_http_user_agent,"WannaBe"))	return 0;	/* MAC		*/
	if(strstr(zz_http_user_agent,"Macintosh; I;"))	return 0;	/* MAC		*/

	if(strstr(zz_http_user_agent,"Mozilla/3.0N"))	return 0;	/* small?	*/
	if(strstr(zz_http_user_agent,"CBBoard"))	return 0;	/* small?	*/
	if(strstr(zz_http_user_agent,"PersonaWare"))	return 0;	/* small?	*/
	if(strstr(zz_http_user_agent,"Sharp"))		return 0;	/* small?	*/

	if(strstr(zz_http_user_agent,"95"))		return 0;	/* win95	*/
	if(strstr(zz_http_user_agent,"NT 4.0"))		return 0;	/* winNT	*/
	if(strstr(zz_http_user_agent,"WinNT"))		return 0;	/* winNT	*/

	if(!*zz_http_user_agent && !*zz_http_language)	return 1;
/*	if(!*zz_http_user_agent)			return 1;*/
#ifdef	Katjusha_Beta_kisei
	if(strstr(zz_http_user_agent,"Katjusha"))	return 1;
#endif
	if(strstr(zz_http_user_agent,"WebFetch"))	return 1;
	if(strstr(zz_http_user_agent,"origin"))		return 1;
	if(strstr(zz_http_user_agent,"Nozilla"))	return 1;
	if(strstr(zz_http_user_agent,"WWWD"))		return 1;

/*	if(!*zz_http_language)				return 1;*/

	return	0;
}
/****************************************************************/
/*	Log Out							*/
/****************************************************************/
int	logOut(char *txt)
{
	FILE	*fp			;

#ifdef DEBUG
return 1;
#endif

	if(!BadAccess())	return 1;

#ifdef	LOGLOGOUT
/*
if(strcmp(zz_bs,"ascii"))	return 1;
*/
	fp = fopen("./logout.txt","a+")	;
	if(fp == NULL)	return		;
	fprintf(fp,"%02d:%02d:%02d %8s:",tm_now->tm_hour,tm_now->tm_min,tm_now->tm_sec,zz_bs)	;
	fprintf(fp,"(%15s)",zz_remote_addr)	;
	fprintf(fp,"%s***%s\n",zz_http_language,zz_http_user_agent)	;

/*
	fprintf(fp,"%s\n",zz_query_string)	;
	if(strstr(zz_http_user_agent,"compatible"))
	fprintf(fp,"%s\n",zz_http_language)	;
	else
	fprintf(fp,"%s***%s\n",zz_http_language,zz_http_user_agent)	;
	if(*zz_http_referer)	fprintf(fp,"%s\n",zz_http_referer)	;
	else			fprintf(fp,"%s***%s\n",zz_http_language,zz_http_user_agent)	;
	else			fprintf(fp,"%s\n",zz_http_user_agent)	;
*/

	fclose(fp)				;
#endif
	html_error("なんか不調です。")		;
	return	1				;
}
/****************************************************************/
/*	HTML BANNER						*/
/****************************************************************/
int	html_bannerNew()
{
printf("<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=1 WIDTH=100%%><TR><TD>\n")	;
/**/
printf("<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%%>\n")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#eeeeee><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>\n")	;
printf("<TR BGCOLOR=#cccccc><TD HEIGHT=20 NOWRAP><FONT SIZE=2>&nbsp;\n")	;
printf("| <A HREF=\"http://www.maido3.com/\" CLASS=\"BigLine\"> おすすめ </A>\n")	;
printf("| <A HREF=\"http://news.kakiko.com/2chwatch/\" CLASS=\"BigLine\"> 2chサーバ監視所 </A>\n")	;
printf("| <A HREF=\"http://www.binboserver.com/\" CLASS=\"BigLine\"> BinboServer </A>\n")	;
printf("| <A HREF=\"http://www.maido3.com/server/subdomain.html\" CLASS=\"BigLine\"> Hikky.Zansu.com </A>\n")	;
printf("| <A HREF=\"http://news.kakiko.com/\" CLASS=\"BigLine\"> 無料サービス </A>\n")	;
printf("|</FONT></TD></TR>\n")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#333333><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>\n")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#eeeeee><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>\n")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#333333><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>\n")	;
printf("</TABLE>\n")	;
/**/

printf("<CENTER>\n")	;

printf("<BR>\n")				;
printf("さぶドメインシリーズ登場<BR>\n")	;
printf("　　　*****.<B><FONT SIZE=+1 FACE=\"Arial\" COLOR=DEEPPINK>syo-ten</FONT></B>.com<BR>\n")		;
printf("　　　*****.<B><FONT SIZE=+1 FACE=\"Arial\" COLOR=DEEPPINK>gasuki</FONT></B>.com<BR>\n")		;
printf("　　　*****.<B><FONT SIZE=+1 FACE=\"Arial\" COLOR=DEEPPINK>zansu</FONT></B>.com<BR>\n")		;
printf("おすきな名前を無料で使えます。早い者勝ち。<BR>\n")		;
printf("<FONT COLOR=DEEPPINK><B>工夫しだいで、楽しさ１００倍。</B></FONT>\n")		;

printf("<P><A HREF=\"http://www.maido3.com/server/\">")		;
printf("深夜でも快適なレンタルサーバサービス(n)")		;
printf("</A>\n")					;
printf("<BR>あの巨大なサイトも使っています。\n")	;

printf("</CENTER><P>\n")	;
printf("</TD></TR></TABLE><P>\n")	;

}

#ifdef	CM_BBSPINK
/****************************************************************/
/*	HTML BANNER						*/
/****************************************************************/
int	html_banner()
{
printf("<CENTER>\n")	;
printf("<A TARGET=\"_blank\" HREF=\"http://www.pinknavi.com/?pinkid=PB0001&prg=3&act=0&txt=おいでませ&url=http://www.seiai.com/\">おいでませアダルトサイト</A><br>\n")	;
printf("<br><a href=\"http://www.maido3.com/mentai/\"><b><font size=4>深夜でも快適なレンタルサーバサービス</font></b></a><br>\n")	;
printf("</CENTER>\n")	;
printf("<P>\n")	;

}
#else
/****************************************************************/
/*	HTML BANNER						*/
/****************************************************************/
int	html_banner()
{
printf("<CENTER>\n")	;

printf("<A HREF=\"http://www.maido3.com/server/\" TARGET=\"_blank\">")		;
printf("深夜でも快適なレンタルサーバサービス")		;
printf("</A>\n")					;
printf("<BR>あの巨大なサイトも使っています。\n")	;

printf("</CENTER><P>\n")	;

}
#endif
/****************************************************************/
/*	Get file size						*/
/****************************************************************/
int	out_html1()
{
	char	*s[20]		;
	char	r0[SIZE_BUF],r1[SIZE_BUF],r2[SIZE_BUF],r3[SIZE_BUF],r4[SIZE_BUF]	;
	char	p[SIZE_BUF]			;

	if(out_resN)	return 0	;
	strncpy(p,BigLine[0],1024)		;
	p[1024 -1] = '\0'; 
	if(!*p)	return	1		;
	res_split(s,p)			;
#ifdef	TYPE_TERI
	/*someReplace(s[4],r4,"＠｀",",")	;*/
	html_head(s[4],lineMax)		;
#else
	someReplace(s[4],r4,"＠｀",",")	;
	html_head(r4,lineMax)		;
#endif
if(strcmp(zz_im,"true"))	/* no imode	*/
{
	printf("<DL>")		;
}
	out_resN ++			;
	return	0			;
}
int	out_html(int line,int lineNo)
{
	char	*s[20]		;
#ifdef	TYPE_TERI
	char	*r0,*r1,*r2,*r3,*r4	;
#else
	char	r0[SIZE_BUF],r1[SIZE_BUF],r2[SIZE_BUF],r3[SIZE_BUF],r4[SIZE_BUF]	;
#endif
	char	p[SIZE_BUF]			;

/*printf("line=%d[%s]<P>\n",line,BigLine[line]);return 0;*/

	if(!out_resN)				/* Can I write header ?	*/
	{
		strncpy(p,BigLine[0],1024)		;
		p[1024 -1] = '\0'; 
		if(!*p)	return	1		;
		res_split(s,p)			;
#ifdef	TYPE_TERI
	r4 = s[4]			;
#else
	someReplace(s[4],r4,"＠｀",",")	;
#endif
		html_head(r4,lineMax)		;
if(strcmp(zz_im,"true"))	/* no imode	*/
{
		printf("<DL>")		;
}
	}
	out_resN ++				;

	strncpy(p,BigLine[line],1024)			;
	p[1024 -1] = '\0'; 
	if(!*p)	return	1	;
	res_split(s,p)		;

#ifdef	TYPE_TERI
		r0 = s[0]			;
		r1 = s[1]			;
		r3 = s[3]			;
#else
		someReplace(s[0],r0,"＠｀" , ",")	;
		someReplace(s[1],r1,"＠｀" , ",")	;
		someReplace(s[3],r3,"＠｀" , ",")	;
		someReplace(r3,r3,"&amp;" , "&")		;
#endif
		hlinkReplace(r3)			;

	    if(strcmp(zz_im,"true"))		 /* no imode */
	    {
		if(*r3 && strlen(r3) < 8192)
		{
		printf("<dt>")		;
		printf("%d",lineNo)	;
		printf(" 名前：")	;

		if(*r1)	{printf("<a href=\"mailto:%s \">",r1)	;}
		else	{printf("<font color=green>")	;}

		printf("<b>%s </b>",r0)	;

		if(*r1)	{printf("</a>")		;}
		else	{printf("</font>")	;}

		printf(" 投稿日：%s",s[2])	;
		printf("<dd>")			;
		printf("%s",r3)			;
		printf("<br><br>")		;
		}
		else
		{
		printf("<dt>")		;
		printf("%d",lineNo)	;
		printf(" 名前：<font color=green><b>");
		printf("%s","")					;
		printf("</b></font>")				;
		printf(" 投稿日：[ここ壊れています]")		;
		printf("<DD>")					;
		printf("[ここ壊れています]")			;
		printf("<br><br>")				;
		}
if(IsBusy2ch() && out_resN > RES_NORMAL)
{
printf(" <a href=\"./%s?bbs=%s&key=%s&st=%d&to=%d\">次の %d レスを見る</a>\n",
CGINAME,zz_bs,zz_ky,lineNo,lineNo+RES_NORMAL,RES_NORMAL)	;
printf(" <a href=\"./%s?bbs=%s&key=%s&ls=%d\">最新レス %d</a>\n",
CGINAME,zz_bs,zz_ky,RES_NORMAL,RES_NORMAL)	;
printf(" (%02d:00PM - %02d:00AM の間一気に全部は読めません)<BR>\n",LIMIT_PM-12,LIMIT_AM)	;
	return 1	;
}
	    }
	    else			/* imode	*/
	    {
		if(*r3)
		{
		printf("<p>[%d:",lineNo)	;
		if(*s[1])	{printf("<a href=\"mailto:%s \">",r1)	;}
		printf("<b>%s </b>",r0)	;
		if(*s[1])	{printf("</a>")	;}
		printf("(%s)]",s[2])		;
		printf("<br>%s</p>",r3)		;
		printf("<hr>\n")		;
		}
		else
		{
		printf("<p>[%d:",lineNo)		;
		printf("ここ壊れています]</p>")	;
		printf("<hr>\n")		;
		}
if(out_resN > RES_IMODE)
{
printf(" <a href=\"./%s?bbs=%s&key=%s&st=%d&to=%d&imode=true\">次の %d レスを見る</a>\n",
CGINAME,zz_bs,zz_ky,lineNo,lineNo+RES_IMODE,RES_IMODE)	;
printf(" <a href=\"./%s?bbs=%s&key=%s&ls=%d&imode=true\">最新レス %d</a><BR>\n",
CGINAME,zz_bs,zz_ky,RES_IMODE,RES_IMODE)	;
	return 1	;
}
	    }

	return	0				;
}
/****************************************************************/
/*	Get file size						*/
/****************************************************************/
int	dat_out()
{
	int	line,lineNo			;

	for(line=0;line<lineMax;line++)
	{
		lineNo = line + 1	;

		if(lineNo == 1)
		{
			if(!strcmp(zz_nf,"true"))	continue	;
		}
		else
		{
			if(nn_st && lineNo < nn_st)	continue	;
			if(nn_to && lineNo > nn_to)	continue	;
			if(nn_ls && line < lineMax - nn_ls)	continue	;
		}

		if(out_html(line,lineNo))	break	;
	}
	out_html1()	;
	html_foot(lineMax)	;

return	0	;
}
/****************************************************************/
/*	Get file size						*/
/****************************************************************/
int	dat_read()
{
	int	i				;
	FILE	*fp				;
	char	fname[1024]			;


	sprintf(fname,"../%.256s/dat/%.256s.dat",zz_bs,zz_ky); 
	//sprintf(fname,"../%s/dat/%s.dat",zz_bs,zz_ky)	;
#ifdef DEBUG
	sprintf(fname,"998695422.dat")	;
#endif
	zz_fileSize    = getFileSize(fname)	;

	if(zz_fileSize > MAX_FILESIZE)
		html_error("このスレッド大きすぎます。")	;
	if(*zz_ky == '.')
		html_error("そんな板orスレッドないです。")	;


	nn_st = atoi(zz_st)		;
	nn_to = atoi(zz_to)		;
	nn_ls = atoi(zz_ls)		;
	if(nn_st < 0)	nn_st = 0	;
	if(nn_to < 0)	nn_to = 0	;
	if(nn_st == 1 && nn_to ==1)	strcpy(zz_nf,KARA)	;
	if(!strcmp(zz_im,"true"))	 /* imode */
	{
		if(!nn_st && !nn_to && !nn_ls)	nn_ls = RES_IMODE	;
	}
	if(strcmp(zz_nf,"true"))	nn_ls --	;
	if(nn_ls < 0)	nn_ls = 0	;

	BigBuffer = malloc(zz_fileSize + 32)		;
	if(!BigBuffer)	html_error("メモリの確保に失敗しました。")	;

	fp = fopen(fname,"r")	;
	if(!fp)
	{
		html_error("そんな板orスレッドないです。")	;
		return	0	;
	}
	fread(BigBuffer,zz_fileSize,1,fp)	;
	fclose(fp)				;
	BigBuffer[zz_fileSize] = '\0'		;
	for(i=0;i<zz_fileSize;i++)
	{
		if(BigBuffer[i] == '\0')	BigBuffer[i] = '*'	;
	}

	lineMax = getLineMax()			;
/*
html_error("調整中。。。")	;
*/
	return 0;
}
/****************************************************************/
/*	Get line number						*/
/****************************************************************/
int	getLineMax()
{
	int	line = 0	;
	char	*p = BigBuffer	;
	char	*p1		;
	char	b[SIZE_BUF]	;

	if(!p)	return -8	;

	while(p1 = strchr(p,'\n'))
	{
		BigLine[line] = p	;
		*p1 = '\0'	;
		p = p1		;
		if(line > RES_RED)	break	;
		line ++		;
		p++		;
	}
	return line		;
}
/****************************************************************/
/*	Get file size						*/
/****************************************************************/
int	getFileSize(char *file)
{
	struct	stat	CountStat		;
	int	ccc = 0				;
	if(!stat(file,&CountStat))	ccc = (int)CountStat.st_size;
	return	ccc				;
}

/****************************************************************/
/*	Get file last-modified						*/
/****************************************************************/

#ifdef LASTMOD
time_t getFileLastmod(char *file)
{
	struct	stat	CountStat		;
#ifdef FreeBSD
       struct  timespec        ccc;
       if(!stat(file,&CountStat))      ccc = CountStat.st_mtimespec;
       return  ccc.tv_sec;
#else
       time_t  ccc;
       if(!stat(file,&CountStat))      ccc = CountStat.st_mtime;
       return  ccc;
#endif
}

int get_lastmod_str(time_t lastmod){
	strftime(lastmod_str, 1024, "%a, %d %b %Y %H:%M:%S GMT", gmtime(&lastmod));
	return(1);
}
#endif

/****************************************************************/
/*	GET Env							*/
/****************************************************************/
int	zz_GetEnv(void)
{
	currentTime = (long)time(&t_now);
	time(&t_now)			;
	t_now +=  9*60*60		;
	tm_now = gmtime(&t_now)		;

	zz_remote_addr		= getenv("REMOTE_ADDR")		;
	zz_remote_host		= getenv("REMOTE_HOST")		;
	zz_http_referer		= getenv("HTTP_REFERER")	;
	zz_http_cookie		= getenv("HTTP_COOKIE")		;
	zz_query_string		= getenv("QUERY_STRING")	;
	zz_temp			= getenv("REMOTE_USER")		;
	zz_http_user_agent	= getenv("HTTP_USER_AGENT")	;
	zz_http_language	= getenv("HTTP_ACCEPT_LANGUAGE");
#ifdef GZIP
	zz_http_encoding	= getenv("HTTP_ACCEPT_ENCODING");
#endif
#ifdef LASTMOD
	zz_http_if_modified_since	= getenv("HTTP_IF_MODIFIED_SINCE");
#endif

	if(!zz_remote_addr)	zz_remote_addr    = KARA	;
	if(!zz_remote_host)	zz_remote_host    = KARA	;
	if(!zz_http_referer)	zz_http_referer   = KARA	;
	if(!zz_query_string)	zz_query_string   = KARA	;
	if(!zz_temp)		zz_temp		  = KARA	;
	if(!zz_http_user_agent)	zz_http_user_agent= KARA	;
	if(!zz_http_language)	zz_http_language  = KARA	;

	zz_GetString(zz_bs ,"bbs")		;
	zz_GetString(zz_ky ,"key")		;
	zz_GetString(zz_ls ,"ls")		;
	zz_GetString(zz_st ,"st")		;
	zz_GetString(zz_to ,"to")		;
	zz_GetString(zz_nf ,"nofirst")		;
	zz_GetString(zz_im ,"imode")		;
}
/****************************************************************/
/*	MAIN							*/
/****************************************************************/
main()
{
#ifdef GZIP
	int pid;
    int pipefds[2];
	int whitespace = 2048;
#endif
	char	fname[1024]			;
	zz_GetEnv()				;

	printf("Content-type: text/html\n")	;
#ifdef LASTMOD
	sprintf(fname,"../%.256s/dat/%.256s.dat",zz_bs,zz_ky); 
#ifdef DEBUG
	sprintf(fname,"998695422.dat")	;
#endif
	zz_fileLastmod = getFileLastmod(fname)	;
	get_lastmod_str(zz_fileLastmod);
	if(zz_http_if_modified_since && strstr(zz_http_if_modified_since, lastmod_str)){
		printf("Status: 304\n")	;
		printf("\n")	;
		return(0);
	}
#endif
	
#ifdef GZIP
	if(zz_http_encoding && strstr(zz_http_encoding,"gzip")){
		gzip_flag = 1;
	}else{
		gzip_flag = 0;
	}
	if(gzip_flag){
		printf("Content-Encoding: gzip\n");
	}
#endif


#ifdef DEBUG
	sprintf(fname,"998695422.dat")	;
#endif
	zz_fileSize    = getFileSize(fname)	;

// Get Last-Modified Date
#ifdef LASTMOD
	printf("Last-Modified: %.256s\n", lastmod_str);
#endif

	printf("\n")				;
#ifdef DEBUG
	sleep(1);
#endif
	fflush(stdout);

#ifdef GZIP
    if(gzip_flag) {
        pipe(pipefds);
        if((pid=fork()) == 0){
            //child 
            dup2(pipefds[0], 0);
            close(pipefds[0]);
            close(pipefds[1]);
            execl("/bin/gzip", "gzip", "-cf", NULL);
			printf ("Error can't exec\n");
			exit(1);
        }
		//parent
		dup2(pipefds[1], 1);
		close(pipefds[0]);
		close(pipefds[1]);
		//put 2048byte
		fflush(stdout);
		while(whitespace--)putchar(' ');
		fflush(stdout);
    }

#endif

	logOut("")				;

	dat_read()				;
	dat_out()				;

	if(BigBuffer)	free(BigBuffer)		;
	BigBuffer = NULL			;

#ifdef GZIP
	if(gzip_flag) {
		fflush(stdout);
		close(1);
		waitpid(pid, NULL, 0);
	} 
#endif

}
/****************************************************************/
/*	ERROR END						*/
/****************************************************************/
int	html_error(char *mes)
{
	char	zz_soko[256]	;
	char	tmp[256]	;
	char	doko[256]	;
	struct	stat	CountStat		;
	char	comcom[256]	;

	*tmp = '\0'	;
	strcpy(tmp,LastChar(zz_ky,"/"))	;
	strncpy(zz_soko,tmp,3)	;

	*comcom = '\0'		;
if(strstr(mes,"不調"))
{
sprintf(comcom,"<A HREF=\"http://green.jbbs.net/computer/20/bigserver.html\">お問い合わせ先</A>");
}


printf("<HTML><HEAD>")	;
printf("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">")	;
printf("<TITLE>%s</TITLE>",mes)	;
printf("<style type=\"text/css\">\n")	;
printf("<!--\n")	;
printf("TD.Type1 {\n")	;
printf("color: #ffffff;\n")	;
printf("text-align: left;\n")	;
printf("}\n")	;
printf("A.BigLine {\n")	;
printf("color: #000000;\n")	;
printf("text-decoration: none;\n")	;
printf("}\n")	;
printf("-->\n")	;
printf("</style>\n")	;
printf("</HEAD>\n")	;
/*printf("<BASE TARGET=\"_blank\">\n")	;*/

printf("<BODY TEXT=\"#000000\" BGCOLOR=\"#EFEFEF\" link=\"#0000FF\" alink=\"#FF0000\" vlink=\"#660099\">\n")	;

printf("<P><FONT SIZE=+1 COLOR=\"#FF0000\">%s</FONT></B><BR>\n",mes)	;
printf("<DL>")	;
printf("<dt>1 名前：<font color=green><b>%s</b></font>投稿日：2001/04/12(木) 15:11<dd>%s<br><br>%s<br>\n",CGIVER,mes,comcom)	;

if(strstr(zz_http_user_agent,"Katjusha"))
{
printf("<dt>2 名前：<font color=green><b>%s</b></font>投稿日：2001/04/12(木) 15:11<dd>",CGIVER)	;
/*printf("%s",zz_http_user_agent)	;*/
printf("<BR>")				;
printf("<P><A target=\"_blank\" HREF=\"http://www.maido3.com/server/\">")		;
printf("http://www.maido3.com/server/")		;
printf("</A><BR>")					;
printf("さぶドメインシリーズ登場<BR>")	;
printf("　　　*****.<B><FONT SIZE=+1 FACE=\"Arial\" COLOR=DEEPPINK>syo-ten</FONT></B>.com<BR>")		;
printf("　　　*****.<B><FONT SIZE=+1 FACE=\"Arial\" COLOR=DEEPPINK>gasuki</FONT></B>.com<BR>")		;
printf("　　　*****.<B><FONT SIZE=+1 FACE=\"Arial\" COLOR=DEEPPINK>zansu</FONT></B>.com<BR>")		;
printf("おすきな名前を無料で使えます。早い者勝ち。<BR>")		;
printf("<FONT COLOR=DEEPPINK><B>工夫しだいで、楽しさ１００倍。</B></FONT>")		;

printf("<P><A target=\"_blank\" HREF=\"http://www.maido3.com/server/\">")		;
printf("深夜でも快適なレンタルサーバサービス")		;
printf("</A>")					;
printf("<BR>あの巨大なサイトも使っています。<BR><BR>")	;
printf("<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%%>")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#eeeeee><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>")	;
printf("<TR BGCOLOR=#cccccc><TD HEIGHT=20 NOWRAP><FONT SIZE=2>&nbsp;")	;
printf("| <A target=\"_blank\" HREF=\"http://www.maido3.com/\" CLASS=\"BigLine\"> おすすめ </A>")	;
printf("| <A target=\"_blank\" HREF=\"http://news.kakiko.com/2chwatch/\" CLASS=\"BigLine\"> 2chサーバ監視所 </A>")	;
printf("| <A target=\"_blank\" HREF=\"http://www.binboserver.com/\" CLASS=\"BigLine\"> BinboServer </A>")	;
printf("| <A target=\"_blank\" HREF=\"http://www.maido3.com/server/subdomain.html\" CLASS=\"BigLine\"> Hikky.Zansu.com </A>")	;
printf("| <A target=\"_blank\" HREF=\"http://news.kakiko.com/\" CLASS=\"BigLine\"> 無料サービス </A>")	;
printf("|</FONT></TD></TR>")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#333333><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#eeeeee><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>")	;
printf("<TR><TD HEIGHT=1 BGCOLOR=#333333><IMG HEIGHT=1 WIDTH=1 SRC=\"/space1.gif\"></TD></TR>")	;
printf("</TABLE>")	;
printf("<br><br>\n")	;
}
printf("</DL>\n")	;

printf("<CENTER>\n")	;
printf("<BR>\n")	;
html_bannerNew()	;
printf("<BR>\n")	;

printf("</CENTER><HR>\n")		;
printf("<FONT SIZE=-2>%s</FONT><HR><P>\n",CGIVER)	;

if(strstr(mes,"そんな"))
{
	sprintf(doko,"../%.50/kako/%.50/%.50.html",zz_bs,zz_soko,tmp)	;
	if(!stat(doko,&CountStat))
	{
		printf("隊長! 過去ログ倉庫で、<A HREF=\"/%s/kako/%s/%s.html\">スレッド %s.html</A>　を発見しました。\n",zz_bs,zz_soko,tmp,tmp);
	}
	else
	{
		sprintf(doko,"../%.50s/kako/%.50s/%.50s.dat",zz_bs,zz_soko,tmp)	;
		if(!stat(doko,&CountStat))
		{
		printf("隊長! 過去ログ倉庫で、<A HREF=\"/%s/kako/%s/%s.dat\">スレッド %s.dat</A>　を発見しました。<BR><B><FONT SIZE=+1 COLOR=RED>が</FONT></B>、しかしまだ html化されていません。残念、待つしかない。\n",zz_bs,zz_soko,tmp,tmp);
		}
		else
		{
		printf("<A HREF=\"/%s/kako/\">過去ログ倉庫</A>にもありませんでした。<BR>問い合わせても見つかる可能\性はほとんどありません。\n",zz_bs);
		}
	}
}

printf("</BODY>\n")	;
printf("</HTML>\n")	;

if(BigBuffer)	free(BigBuffer)	;
BigBuffer = NULL			;

exit(0)	;
}
int	html_error999(char *mes)
{
	char	zz_soko[256]	;
	char	tmp[256]	;
	*tmp = '\0'	;
	strcpy(tmp,LastChar(zz_ky,"/"))	;
	strncpy(zz_soko,tmp,3)	;

printf("<HTML><HEAD>")	;
printf("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">")	;
printf("<TITLE>ERROR</TITLE>")	;
printf("</HEAD>\n")	;

printf("<BODY TEXT=\"#000000\" BGCOLOR=\"#EFEFEF\" link=\"#0000FF\" alink=\"#FF0000\" vlink=\"#660099\">\n")	;

printf("\n")		;
printf("<TABLE border=1 cellspacing=11 cellpadding=2 width=95% bgcolor=\"#EFEFEF\" align=center><TR><TD>\n");
printf("えらー、%s<P>\n",mes)		;
printf("bbs = [%s]　\n",zz_bs)	;
printf("key = [%s]　\n",zz_ky)	;
printf("ls = [%s]　\n",zz_ls)		;
printf("st = [%s]　\n",zz_st)		;
printf("to = [%s]　\n",zz_to)		;
printf("nofirst = [%s]<BR>\n",zz_nf)	;
printf("fileSize = [%d bytes] %dlines<BR>\n",zz_fileSize,lineMax)	;
printf("time=[%02d:%02d:%02d]<BR>\n",tm_now->tm_hour,tm_now->tm_min,tm_now->tm_sec);

printf("<BR>「えらー、そんな板orスレッドないです」の場合はここ倉庫へ Go <BR>")	;
printf("<A HREF=\"/%s/kako/%s/%s.html\">過去ログ倉庫 %s.html</A>\n",zz_bs,zz_soko,tmp,tmp);
printf("<BR>まだ、dat -> html 変換が行われていない場合が良くあります。\n");
printf("<BR><A HREF=\"http://teri.2ch.net/test/read.cgi?bbs=accuse&key=980507715&ls=30\">ここ</A>で訴えると、過去ログ整理をしてくれる場合があるかもです。\n");


printf("</TD></TR></TABLE>\n")		;

printf("<BR><BR><BR>\n")		;
html_banner()	;
printf("<BR><BR><BR>\n")		;

printf("<FONT SIZE=-2>%s</FONT>\n",CGIVER)	;
printf("</BODY>\n")	;
printf("</HTML>\n")	;

if(BigBuffer)	free(BigBuffer)	;
BigBuffer = NULL			;

exit(0)	;
}
/****************************************************************/
/*								*/
/****************************************************************/
char	*zz_GetString(char *dst,char *tgt)
{
	int	i			;
	int	ch = (int)'&'		;
	char	*kk0			;
	char	*kk1			;
	char	*kk = zz_query_string	;
	for(i=0;i<200;i++)
	{
		if(!strncmp(kk,tgt,strlen(tgt)))
		{
			kk0 = kk			;
			kk1 = strchr(kk,ch)		;
			if(kk1)	*kk1 = '\0'			;
			strncpy(dst,kk0 + strlen(tgt) + 1,1024) ;
			dst[1024 -1] = '\0';
			if(kk1)	*kk1 = ch			;
			return	dst				;
		}
		kk = strchr(kk,ch)				;
		if(!kk)		break				;
		kk ++						;
	}
	*dst = '\0'	;
	return	dst	;
}
int whatKanji(unsigned char *str)
{
    int val = 0;
    unsigned char b1, b2, b3;

    b1 = *str++;
    b2 = *str++;
    b3 = *str;
    if (b1 == 0x1b) {
        if (b2 == '$' && b3 == 'B') return 16;
        if (b2 == '$' && b3 == '@') return 32;
        if (b2 == '(' && b3 == 'J') return 64;
        if (b2 == '(' && b3 == 'B') return 128;
        return 0;
    }
    if ( b1 >= 0xa0 && b1 <= 0xdf) val |= 1;
    if ((b1 >= 0x81 && b1 <= 0x9f ||
         b1 >= 0xe0 && b1 <= 0xfc) && 
        (b2 >= 0x40 && b2 <= 0xfc && b2 != 0x7f)) val |= 2;
    if (b1 == 0x8e && (b2 >= 0xa0 && b2 <= 0xdf)) val |= 4; 
    if ((b1 >= 0xa1 && b1 <= 0xfe) &&
        (b2 >= 0xa1 && b1 <= 0xfe)) val |= 8;

    return val;
}
#ifdef	TYPE_TERI
char	*findSplitter(char *stt,int sp)
{
	unsigned char	*p = (unsigned char*)stt	;
	char	ss = (unsigned char)(sp & 0x00ff)		;

	while(*p)
	{
/*
		if( *p >= 0xa0 && *p <= 0xdf)	{p++	;continue;}
		if((*p >= 0x81 && *p <= 0x9f || *p >= 0xe0 && *p <= 0xfc))	{p += 2	;continue;}
*/
		if(*p == ss && *(p+1) == '>')		return	p	;
		p++				;
	}
	return	NULL		;
}
#else
char	*findSplitter(char *stt,int sp)
{
	unsigned char	*p = (unsigned char*)stt	;
	char	ss = (unsigned char)(sp & 0x00ff)		;

	while(*p)
	{
		if( *p >= 0xa0 && *p <= 0xdf)	{p++	;continue;}
		if((*p >= 0x81 && *p <= 0x9f || *p >= 0xe0 && *p <= 0xfc))	{p += 2	;continue;}
/*		if((*p >= 0x40 && *p <= 0xfc && *p != 0x7f))	p += 2	;*/
		if(*p == ss)	return	p	;
		p++				;
	}
	return	NULL		;
}
#endif
int	res_split(char **s,char *p)
{
	int	i	;
	char	*p0	;

	for(i=0;i<5;i++) s[i] = KARA	;

	s[0] = p	;
	for(i=1;i<5;i++)
	{
#ifdef	TYPE_TERI
		p0  = findSplitter(s[i-1],'<')	;
		if(!p0)	{return 0;}
		*p0 = '\0'	;
		p0++		;
		*p0 = '\0'	;
		p0++		;
		s[i] = p0	;
#else
		p0  = findSplitter(s[i-1],',')	;
		if(!p0)	{return 0;}
		*p0 = '\0'	;
		p0++		;
		s[i] = p0	;
#endif
	}
	return	1		;
}
int	dump_out16(char *d)
{
	unsigned char	*p = (unsigned char*)d	;
	printf("\n\n<!-- ")	;
	while(*p)
	{
		printf(",%02x",*p)	;
		p++	;
	}
	printf(" -->\n\n")	;
}
int	IsBusy2ch()
{
	if(tm_now->tm_hour < LIMIT_AM || LIMIT_PM <= tm_now->tm_hour)	return	1	;
	return	0	;
}
/****************************************************************/
/*	えらー							*/
/****************************************************************/
char *LastChar(char *src,char *c)
{
	char	*p			;
	if(!*src)	return(src)	;
	p = strstr(src,c)		;
	if(!p)	return(src)		;
	return	LastChar(p+1,c)		;
/*
	return p+1	;
*/
}
/****************************************************************/
/*	HTML HEADER						*/
/****************************************************************/
int	html_head(char *title,int line)
{
printf("<HTML>")	;
printf("<HEAD>")	;
printf("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">")	;

printf("<TITLE>%s </TITLE>",title)	;

if(strcmp(zz_im,"true"))	/* no imode	*/
{
printf("<SCRIPT LANGUAGE=JavaScript>")	;
printf("<!--\n")	;
printf("N=g(\"NAME\");")	;
printf("M=g(\"MAIL\");")	;
printf("function g(key,tmp1,tmp2,xx1,xx2,xx3){")	;
printf("tmp1=\" \"+document.cookie+\";\";")	;
printf("xx1=xx2=0;")	;
printf("len=tmp1.length;")	;
printf("while(xx1<len){")	;
printf("xx2=tmp1.indexOf(\";\",xx1);")	;
printf("tmp2=tmp1.substring(xx1+1,xx2);")	;
printf("xx3=tmp2.indexOf(\"=\");")	;
printf("if(tmp2.substring(0,xx3)==key){")	;
printf("return(unescape(tmp2.substring(xx3+1,xx2-xx1-1)));")	;
printf("}")	;
printf("xx1=xx2+1;")	;
printf("}return(\"\");")	;
printf("}\n")	;
printf("// -->")	;
printf("</SCRIPT>")	;
}
printf("</HEAD>")	;

printf("<BODY TEXT=black BGCOLOR=#EFEFEF link=blue alink=red vlink=#660099>")	;

if(strcmp(zz_im,"true"))	/* no imode	*/
{
printf("<A HREF=\"/%s/index2.html\">■掲示板に戻る■</A>",zz_bs)			;
printf(" <A HREF=\"%s?bbs=%s&key=%s\">レスを全部読む</A>",CGINAME,zz_bs,zz_ky)	;
printf(" <A HREF=\"%s?bbs=%s&key=%s&ls=100\">最新レス１００</A>",CGINAME,zz_bs,zz_ky)	;
}
else
{
printf("<A HREF=\"/%s/i/\">■掲示板に戻る■</A>",zz_bs)			;
printf(" <A HREF=\"%s?bbs=%s&key=%s&st=1&st=%d&imode=true\">レスを最初から読む</A>",CGINAME,zz_bs,zz_ky,RES_IMODE)	;
printf(" <A HREF=\"%s?bbs=%s&key=%s&ls=%d&imode=true\">最新レス%d</A>",CGINAME,zz_bs,zz_ky,RES_IMODE,RES_IMODE)	;
}


if(line > RES_RED)
{
printf("<P><TABLE><TR><TD BGCOLOR=RED>\n")	;
printf("<FONT COLOR=WHITE><BR><BR>レス数が %d を超えています。残念ながら全部は表\示しません。<BR><BR></FONT>\n",RES_RED,RES_RED)	;
printf("</TD></TR></TABLE>\n")	;
}
else if(line > RES_REDZONE)
{
printf("<P><TABLE><TR><TD BGCOLOR=RED>\n")	;
printf("<FONT COLOR=WHITE>レス数が %d を超えています。%dを超えると表\示できなくなるよ。</FONT>\n",RES_REDZONE,RES_RED)	;
printf("</TD></TR></TABLE>\n")	;
}
else if(line > RES_YELLOW)
{
printf("<P><TABLE><TR><TD BGCOLOR=YELLOW>\n")	;
printf("レス数が %d を超えています。%dを超えると表\示できなくなるよ。\n",RES_YELLOW,RES_RED)	;
printf("</TD></TR></TABLE>\n")	;
}

printf("<P><FONT SIZE=+1 COLOR=red>%s </FONT>",title)	;
}
/****************************************************************/
/*	HTML FOOTER						*/
/****************************************************************/
int	html_foot(int line)
{
	if(!strcmp(zz_im,"true"))	return	html_foot_im()	;
if(line <= RES_RED)
{
printf("<form method=POST action=\"bbs.cgi\">")	;
/**/
printf("<input type=submit value=\"書き込む\" name=submit> 名前： ")	;

printf("<SCRIPT Language=JavaScript>")	;
printf("<!--\n")	;
printf("document.write(\"<INPUT TYPE=text NAME=FROM SIZE=19 VALUE=\",N,\"> E-mail<font size=1> (省略可) </font>: <INPUT TYPE=text NAME=mail SIZE=19 VALUE=\",M,\">\");\n")	;
printf("// -->")	;
printf("</SCRIPT>")	;

printf("<NOSCRIPT>")	;
printf("<INPUT TYPE=text NAME=FROM SIZE=19>")	;
printf(" E-mail<font size=1> (省略可) </font>: ")	;
printf("<INPUT TYPE=text NAME=mail SIZE=19>")	;
printf("</NOSCRIPT>\n")	;

printf("<BR><textarea rows=5 cols=70 wrap=OFF name=MESSAGE></textarea>")	;
printf("<input type=hidden name=bbs value=%s>",zz_bs)	;
printf("<input type=hidden name=key value=%s>",zz_ky)	;
printf("<input type=hidden name=time value=%ld>",currentTime)	;
/**/
printf("</form>")	;
}

/*html_banner()		;*/

printf("</DL><P>%s</BODY></HTML>\n",CGIVER)	;
}
/****************************************************************/
/*	HTML FOOTER						*/
/****************************************************************/
int	html_foot_im(void)
{
printf("<FORM METHOD=POST ACTION=\"./bbs.cgi\">\n");
printf("<INPUT TYPE=submit VALUE=\"かきこむ\" name=\"submit\"> ");
printf("NAME：<INPUT TYPE=text NAME=FROM SIZE=20 VALUE=\"\">");
printf("MAIL：<INPUT TYPE=text NAME=mail SIZE=20 VALUE=\"\">");
printf("<br>");
printf("<INPUT TYPE=hidden name=time VALUE=%ld>\n",currentTime);
printf("<INPUT TYPE=hidden name=bbs VALUE=%s>\n",zz_bs);
printf("<INPUT TYPE=hidden name=key VALUE=%s>\n",zz_ky);
printf("<TEXTAREA ROWS=5 COLS=60 wrap=off NAME=MESSAGE></TEXTAREA>\n");
printf("</FORM><br>\n")	;

/*html_banner()		;*/

printf("<P>%s</BODY></HTML>\n",CGIVER)	;
}
/****************************************************************/
/*	Replace							*/
/****************************************************************/
char	*doReplace(char *des,char *str0,char *str1)
{
	char	*p,*ret	= NULL	;
	char	t[SIZE_BUF]	;
	strcpy(t,des)		;
	p = strstr(t,str0)	;
	if(!p)	return	ret	;
	*p = '\0'		;
	strcpy(des,t)		;
	strcat(des,str1)	;
	ret = des + strlen(des)	;
	strcat(des,p+strlen(str0))	;
	return	ret		;
}
int	someReplace(char *src,char *des,char *str0,char *str1)
{
	char	*last 			;
	strcpy(des,src)			;

	last = des			;
	while(last)
	{
		last = doReplace(last,str0,str1)	;
	}
	return	1			;
}
int	hrefStop(char x)
{
	if('A' <= x && x <= 'Z')	return	0	;
	if('a' <= x && x <= 'z')	return	0	;
	if('0' <= x && x <= '9')	return	0	;
	if(x == '#')	return	0	;
	if(x == '/')	return	0	;
	if(x == '~')	return	0	;
	if(x == '_')	return	0	;
	if(x == '.')	return	0	;
	if(x == ',')	return	0	;
	if(x == '$')	return	0	;
	if(x == '%')	return	0	;
	if(x == '&')	return	0	;
	if(x == '@')	return	0	;
	if(x == '?')	return	0	;
	if(x == '=')	return	0	;
	if(x == '-')	return	0	;
	if(x == '+')	return	0	;
	if(x == '*')	return	0	;
	if(x == ';')	return	0	;
	if(x == ':')	return	0	;
	if(x == '!')	return	0	;
	if(x == '^')	return	0	;
	if(x == '`')	return	0	;
	if(x == '|')	return	0	;
	if(x == '[')	return	0	;
	if(x == ']')	return	0	;
	if(x == '{')	return	0	;
	if(x == '}')	return	0	;
	if(x == '\\')	return	0	;
	return	1	;
}
int	cutWordOff(char *src,char *word)
{
	char	*p = strstr(src,word)	;
	if(!p)	return	0		;
	*p = '\0'			;
	return	1			;
}
int	ExistHlinkX(char *tgt,char *src,char *url,char *hrefStr)
{
	char	*p			;
	char	*u			;
	p = strstr(src,tgt)		;
	if(!p)	return	0		;	/*NASHI*/
	for(u=url;*p;p++)
	{
		if(hrefStop(*p))	break	;
		*u = *p			;
		u++			;
	}
	*u = '\0'			;
	/*-- &quot; 等の削除 --*/
	cutWordOff(url,"&quot;")	;
/*	cutWordOff(url,";")		;*/
	/*---------------------*/
	sprintf(hrefStr,"<A HREF=\"%.1024s\" TARGET=\"_blank\">%.1024s</A>",url,url)	;
	//sprintf(hrefStr,"<A HREF=\"%s\" TARGET=\"_blank\">%s</A>",url,url)	;
	return	1			;	/*ARI*/
}
int	ExistHlink(char *src,char *h0,char *h1)
{
	if(ExistHlinkX("http://",src,h0,h1))	return	1;
	if(ExistHlinkX("ftp://",src,h0,h1))	return	1;
	return	0			;
}
int	hlinkReplace(char *src)
{
	char	*last = src		;
	char	hlink0[SIZE_BUF]	;
	char	hlink1[SIZE_BUF]	;

	while(last)
	{
		if(!ExistHlink(last,hlink0,hlink1))	break	;
		last = doReplace(last,hlink0,hlink1)		;
	}
	return	1			;
}


/****************************************************************/
/*	END OF THIS FILE					*/
/****************************************************************/